home *** CD-ROM | disk | FTP | other *** search
/ Cigar Companion Interactive / Cigar Companion Interactive.iso / pc / cigars.dxr / DIRECTORY_74.ls < prev    next >
Encoding:
Text File  |  1997-08-27  |  256 b   |  11 lines
  1. global gPopDoIt
  2.  
  3. on popSetUp
  4.   if gPopDoIt = 1 then
  5.     set myName to field "DIRECTOR curent cigar field"
  6.     set myPos to getPos(gtopTenNameList, myName)
  7.     set whatDBEntry to getPropAt(gtopTenNameList, myPos)
  8.     setUpDirector(whatDBEntry)
  9.   end if
  10. end
  11.